00200	**********  DRAW  ************* 5/74
00400		TO GET A .DMP COPY OF THIS PROGRAM LOG IN ON DRW,LCS AND TYPE
00600	'LOA @DRW'.
00800	
01000	THE PROGRAM ALLOWS YOU TO DRAW PICTURES WITH  THE  LIGHT  PEN  OR  BY
01200	ENTERING SPECIFIC X,Y COORDS. AT THE KEYBOARD.
01400	
01600	WHEN THE PROGRAM STARTS IT WILL PRINT A LIST OF MOST OF THE INITITIAL
01800	COMMANDS.
02000	
02200	**************  D (DRAW)  *********************
02400	
02600	TO  BEGIN  A  DRAWING  TYPE  'D'.  
02800	(******  ALWAYS FOLLOW COMMANDS WITH <CR>. *******)
03000	
03200	TO HAVE A BACKGROUND REFERENCE GRID APPEAR TYPE 'D 0 1'.    ANY  TIME
03400	'1'  IS GIVEN AS THE THIRD ITEM AT THIS POINT IN THE PROGRAM THE GRID
03600	WILL APPEAR.  TO DELETE THE GRID TYPE '-1' IN THIS POSITION.
03800	
04000		THE GRID GIVES 2X2 SQUARES.  THE LONGER HORIZANTAL LINES  ARE
04200	REFERENCES  FOR  THE  MUSICAL  STAFF.  POINT 0,0 WILL BE AT THE LOWER
04400	LEFT-CENTER OF THE SCREEN WHERE THE CURSOR FIRST  APPEARS.   THE  1ST
04600	NUMBER  AFTER  'D' IS  A  SIZE FACTOR.  (ZERO WILL GIVE SIZE 9.)  ANY
04800	NON-ZERO NUMBER IN THIS POSITION WILL CHANGE THE SIZE.
05000	
05200	WHEN DRAWING, EACH NEW POINT MAY BE SET EITHER BY MOVING  THE  CURSOR
05400	WITH THE LIGHT PEN OR BY TYPING IN THE X AND Y POSITION.  IMMEDIATELY
05600	AFTER A POINT IS SET IT MAY BE SHIFTED UP, DOWN,  LEFT  OR  RIGHT  BY
05800	TYPING U n, D n, L n OR R n. (ONLY ONE OF THIS TYPE OF COMMAND MAY BE
06000	GIVEN AT A TIME - AND ONLY IMMEDIATELY AFTER THE POINT  IS  SET.)  TO
06200	BACK  UP  THROUGH  A  DRAWING TYPE 'B'.  (AFTER TYPING 'B', THE LEFT,
06400	RIGHT, UP, DOWN COMMANDS WILL NOT WORK UNTIL A  NEW  POINT  HAS  BEEN
06600	SET.)
06800	
07000	TO EXIT FROM DRAWING MODE TYPE 'X'.
07200	**************  S (SAVE DRAWING)  *********************
07400	**************  A (ADD A DRAWING TO SAVED FILE)  *********************
07600	**************  G (GET A DRAWING FROM A FILE)  *********************
07800	**************  GM (GET A DRAWING AND ADD TO CURRENT PICTURE)  **********
08000	**************  F (FILL THE DRAWING)  ********************
08200	**************  FS (SMOOTH AND FILL )  ********************
08400	**************  M (MOVE THE DRAWING)  ********************
08600	**************  R (ROTATE THE DRAWING)  ********************
08800	**************  DEL (DELETE A DRAWING FROM A FILE)  ******************  
09000	
09200	**************  Q (BACKGROUND)  *********************
09400	
09600	TYPE  'Q'  TO  PUT  UP  THE  CURRENT  DISPLAY AS BACKGROUND.  YOU MAY
09800	CONTINUE TO ADD TO THE  DRAWING  OR  EDIT  IT  IN  ANY  WAY  BUT  THE
10000	BACKGROUND  WILL  REMAIN  UNCHANGED.  THIS WORKS JUST LIKE THE 'GRID'
10200	FEATURE ABOVE. USE '-1' AS ABOVE TO MAKE THE BACKGROUND GO AWAY.
10400	
10600	**************  Z (ZERO THE DRAWING)  *********************
10800	
11000	TYPE 'Z' TO ZERO THE DRAWING IF YOU WISH TO RETAIN THE BACKGROUND
11200	ONLY.  THIS IS USEFUL FOR USING AN OLD DRAWING AS GUIDE FOR POSITIONING
11400	A NEW DRAWING, ETC.
11600	
11800	**************  E (EDIT)  *********************
12000	
12200	PC=PLOT  PX=XGP(→PLOT.BIN)  PXS,PCS=PLOT SMOOTHED CONTURE
12400	 PXZ,PCZ=PLOT SMOOTHED CONTURE AND FILL IT.
12600	PXS,PCS=SMOOTH ONLY;  PXZ,PCZ=SMOOTH AND FILL
12800	IN DRAW SECTION: J=JUMP(INVIS. VECT.)
13000	 F=JUMP AND BEGIN FILL SECTION.  FX=EXIT AND FILL ALL.
13200	SINGLE ITEM IS RESTRICTED TO 200 WDS. 10 ITEMS PER FILE.
13400	 TYPE .001, .001 TO SET POS. TO 0, -20, -26 IS ORIGINAL.
13600	 TYPE REL FOR RELATIVE VECTORS, O=ORDINARY
13800	 TYPE SM TO SMOOTH, SMX=ERASE STRAIGHT LINES TEMPORARILY.
14000	 TYPE 3RD NUM=1 FOR JUMPS
14200	 IF 3RD NUM=2 -- BEGIN FILL SECTION
14400	B=BACKUP, J=JUMP, CR=SET POINT, X=EXIT, LRUD-N
14600	 F=FILL IT, H=GO TO HOME-NUM, N=GO TO NEXT(AFTER AN 'H')
14800	 Z=ZERO IN ON NEARBY POINT, P=GO TO PREVIOUS, C=CLOSE THE AREA
15000	 D=EXTEND DRAWING,  F=START FILLER OUTLINE, SM=SMOOTH IT
15200	 TYPE 'FX' TO FILL ORIGINAL OUTLINE AND EXIT.
15400		IF(ZK.NE.0)NZ=-1
15600	 WILL STAY IN "Z" MODE UNLESS NUMBER APPEARS.
15800	 TYPE "A" OR ":" TO ALTER
16000	 TYPE "G"=GROUP CHANGE) TO MAKE RELATIVE CHANGE STICK
16200	 , THEN <CR>S. ANY OTHER LETTER TO ESCAPE
16400	 n=STEP AHEAD(n STEPS) (-n GOES BACK)
16600	 IF IN "REL" MODE TYPE "O" BEFORE USING LTPEN
16800	N OR B=BACKUP, J=INSERT OR ALTER TO JUMP, C=ALTER JUMP TO CONT.
17000	40	FORMAT(' POINT OK? (Y,N,B,J,F OR C) ',$)
17200	Y=YES,N=NO,B=BACKUP,J=JUMP,F=START FILL,C=CONTINUE(NULLIFY JUMP)
17400	NOW ASSUMES → IF NO ← POINT FOUND
17600	 -1=GO BACK TO FILL-EDITOR
17800	
18000	
18200	******* TO MOVE SECTIONS OF THE DRAWING WHILE IN EDIT MODE *******
18400	
18600	WHEN A(LTER), I(NSERT), ETC. IS REQUESTED TYPE 'M n1 n2' TO MOVE 
18800	POINTS n1 THROUGH n2.  THE NUMBERS OF THE POINTS MAY BE FOUND BY
19000	STEPPING THROUGH WITH <CR>S.  IF n1 IS MADE NEGATIVE, THE SET OF
19200	POINTS WILL BE ESTABLISHED AS A "MOVE ITEM". THE FIRST ONE WILL
19400	BE NUMBER 1, THE SECOND NUMBER 2, ETC.  ONCE ESTABLISHED, THEY
19600	MAY BE REFERRED TO BY NUMBER.  HENCE IF n2 IS ZERO ALL THE POINTS
19800	OF ITEM n1 WILL BE MOVED.
20000	
20200		M -11 25
20400		(SETS UP MOVE ITEM 1. FOLLOW PROMPT TO MOVE IT.)
20600	
20800		M 1
21000		(NOW THE POINTS 11-25 CAN BE MOVED AGAIN.)
21200	
21400		M -37 42
21600		(THIS SETS UP ITEM 2)